home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 January / MacHome Magazine Demo Disc January 2001.iso / mac / Software / Word Processing / JanusNode 1.10.sea / JanusNode 1.10 / JanusNode Resources / TextDNA / Introductory Sample / Introduction
Encoding:
Text File  |  2000-09-01  |  24.4 KB  |  90 lines  |  [TEXT/MSWD]
  1. 100 subject(Introduction) "Welcome to Janus. This is a specially-created sample TextDNA file to demonstrate a small subset of your JanusNode's capabilities. For more information on Janus and JanusNodes, read the included help files." 100 return 100 < chooseTextDNA(Line10) 100 >
  2. ***
  3. 100 subject(Line10) "In its text-generation mode, your JanusNode uses a rule-based method of creating texts. This allows it to produce structured texts that are different every time. For example, the following two definitions are both randomly generated in real-time:" 100 return 100 < chooseTextDNA(definitions0) 100 >
  4. ***
  5. 100 subject(definitions0) < UseStyle(bold) 100 > "         " 100{ adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 "the" 90 adjectives 10 s_nouns 100 "of" 100 adjectives 10 s_nouns 100 | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 s_articles 80 adjectives 100 attributes 50 s_nouns 100 | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 adjectives 100 attributes 50 s_nouns 100 "for" 100 p_nouns 100  | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 s_articles 100 attributes 80 people 100 "'s" 100 adjectives 100 s_nouns 100 | TextDemonPerson 100  < backspace() 100 > ":" 100 "the" 90 s_nouns 100 "'s" 100  attributes 30 s_nouns 100 } < chooseTextDNA(definitions20) 100 >
  6. *****
  7. 20 subject(definitions0) < UseFont(random) 100 > < UseStyle(bold) 100 > "         " 100 s_nouns 100 < backspace() 100 > ":" 100 "a" 30 < GetXWord(random,adjectives) 80 > < GetXWord(old,s_nouns) 100 > "'s" 100 < GetXWord(old,adjectives) 80 > < GetXWord(old,s_nouns) 100 > < chooseTextDNA(definitions20) 100 >
  8. *****
  9. 100 subject(definitions20) < UseFont(random) 100 > < UseStyle(bold) 100 > "         " 100 { adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 "the" 90 adjectives 10 s_nouns 100 "of" 100 adjectives 10 s_nouns 100 | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 s_articles 80 adjectives 100 attributes 50 s_nouns 100 | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 adjectives 100 attributes 50 s_nouns 100 "for" 100 p_nouns 100  | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 s_articles 100 attributes 80 people 100 "'s" 100 adjectives 100 s_nouns 100 | TextDemonPerson 100  < backspace() 100 > ":" 100 "the" 90 s_nouns 100 "'s" 100  attributes 30 s_nouns 100 } < chooseTextDNA(line20) 100 >
  10. *****
  11. 20 subject(definitions20) < UseFont(random) 100 > < UseStyle(bold) 100 > "         " 100 s_nouns 100 < backspace() 100 > ":" 100 "a" 30 < GetXWord(random,adjectives) 80 > < GetXWord(old,s_nouns) 100 > "'s" 100 < GetXWord(old,adjectives) 80 > < GetXWord(old,s_nouns) 100 > < chooseTextDNA(line20) 100 >
  12. *****
  13. 100 subject(Line20) < UseFont(Times) 100 > < UseStyle(plain) 100 > return 100 "Here's some more randomly-generated text:" 100 < UseStyle(bold) 100 > < chooseTextDNA(Sample20) 100 >
  14. ***
  15. 100 subject(Sample20) return 100 < assign(TimeArt,s_articles) 100 > < assign(TimeNoun,s_nouns) 100 > "If" 100 < get(TimeArt) 100 > TextDemonReturnSpacing 20 < get(TimeNoun) 100 > "had" 100 TextDemonReturnSpacing 20 "the" 100 { "power" 100 | "ability" 100 } TextDemonReturnSpacing 20 "to change" 100 TextDemonReturnSpacing 20 s_objects 100 TextDemonReturnSpacing 20 { "I'd ask for" 100 | "I'd demand" 100 | "I'd pray for" 100 | "I'd request" 100 } { "it" 100 | p_nouns 100 | < get(TimeArt) 100 > < get(TimeNoun) 100 > | s_objects 100 } TextDemonReturnSpacing 20 "to become" 100  TextDemonReturnSpacing 20 { "more" 80 | "less" 80 | "increasingly" 80 | "decreasingly" 80 }  TextDemonReturnSpacing 20 adjectives 100 "." 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  16. ****
  17. 100 Subject(Sample20) return 100 < assign(HNoun,s_nouns) 100 >  { < Get(HNoun) 100 > s_verbsnob 100 adverbs 100 |  < Get(HNoun) 100 > ":" 100 adjectives 100 s_nouns 100 } return 100 [ TextDemonspacing 100 ] { s_verbsnob 100 s_nouns 100 adverbs 100  |  adverbs 100 "," 100 adverbs 100 "," 75 adverbs 100 |  adverbs 100 "," 75 adverbs 100 "," 75 adjectives 100 | adjectives 100 "," 25 adjectives 100  "," 25 adjectives 100 } return 100 { < Get(HNoun) 100 > "of" 100 adjectives 100 s_nouns 100 |  adjectives 100 adjectives 100  s_nouns 100 | adjectives 100 adjectives 100  < Get(HNoun) 100 > | "Look!" 100 "a" 100 adjectives 100  s_nouns 100  | "Aha!" 100 "a" 100 adjectives 100  s_nouns 100 } return 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  18. ****
  19. 100 subject(Sample20) return 100 { "the" 90 adjectives 10 s_nouns 100 "of" 100 adjectives 10 s_nouns 100 | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 s_articles 80 adjectives 100 attributes 50 s_nouns 100 | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 adjectives 100 attributes 50 s_nouns 100 "for" 100 p_nouns 100  | adjectives 10 s_nouns 100  < backspace() 100 > ":" 100 s_articles 100 attributes 80 people 100 "'s" 100 adjectives 100 s_nouns 100 | TextDemonPerson 100  < backspace() 100 > ":" 100 "the" 90 s_nouns 100 "'s" 100  attributes 30 s_nouns 100 | 100 "a" 30 < GetXWord(random,adjectives) 80 > < GetXWord(old,s_nouns) 100 > "'s" 100 < GetXWord(old,adjectives) 80 > < GetXWord(old,s_nouns) 100 > } < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  20. ****
  21. 100 Subject(Sample20) return 100 "        The" 70 adjectives 100 s_nouns 100 "will be worshipped." 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  22. *****
  23. 100 Subject(Sample20) return 100 "no" 100 adjectives 75 s_nouns 100 TextDemonReturnSpacing 20 s_verbsnob 100 adverbs 50 "!" 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  24. *****
  25. 100 Subject(Sample20) return 100 "how" 50 "is" 100 TextDemonReturnSpacing 20 { TextDemonSNP 100 | s_objects 100 } "like" 100  { TextDemonSNP 100 | s_objects 100 } "?" 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  26. *****
  27. 100 subject(Sample20) return 100 { < getsubject(name) 100 >  | s_objects 100 } "is" 100 TextDemonReturnSpacing 20 TextDemonSNP 100 TextDemonReturnSpacing 20 "of" 100 TextDemonReturnSpacing 5 TextDemonSNP 100 "!" 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  28. *****
  29. 100 Subject(Sample20) return 100 "We" 100 { "can" 50 | "will" 50 } "never" 50 "understand" 100 s_articles 100 s_nouns_abs 100 "of" 100 adjectives 100 s_nouns 100 "." 100 "We" 100 p_verbs_to 100 "no" 100 adjectives 100 s_nouns_abs 100 "for" 100 gerunds 100 s_objects 100 "," 100 "since we know that the" 100 s_nouns_abs 100 "lies in the performance" 100  "." 100 "Failure to perform means" 100 SadNouns 100 "or" 100 s_nouns 100 "," 100 "just as the non-performance of" 100 adjectives 100 p_nouns 100 "means the" 100 s_nouns 100 "of" 100 s_nouns_abs 100  "." 100 gerunds 100 adverbs 50 "," 100 gerunds 100 adverbs 100 "," 100 { "rebellion against" 100 | "love of" 100 | "hatred towards" 100 | "indifference towards" 100 } s_nouns_abs 100 "," 100 "and" 100 gerunds 100 "for" 100 s_objects 100 "should be acts of" 100 s_nouns_abs 100 "," 100 "not of" 100 s_nouns_abs 100 ". " 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  30. *******
  31. 100 Subject(Sample20) return 100 "What you need is" 100  bureaucrateseAdj1 100 bureaucrateseAdj2 100 bureaucrateseNouns 100 bureaucrateseNouns  50 "." 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  32. *******
  33. 100 Subject(Sample20) return 100 "Every" 100 adjectives 100 s_nouns_abs 100 "," 100 { "so to speak," 100 | "as it were," 100 | "as one might say," 100 | "to coin a term," 100 } s_verbsnob 100 "its" 100 "own" 50 attributes 100 s_nouns_abs 100 "," 100  "but it is the" 100 adjectives 100 s_nouns_abs 100 "of the" 100 adjectives 100 s_nouns_abs 100 "that is truly important." 100 { "That is to say, we " 100 | "We" 100 | "To put it another way, we" 100 | "In other words, we" 100 | "You and I" 100 | "As human beings, we" 100 } "only need to know that something is" 100 adjectives 100 { "and" 100 | "or" 100 } adverbs  100 s_verbs_past 100 "to know that it is" 100 adjectives 100 ", " 100 "and therefore" 100 adjectives 100 "-- a" 100 adjectives 100 s_nouns_abs 100 "," 100 { "if contacted." 100 | "in other words." 100 | "in short." 100 | "as a" 100 attributes 50 people 100 "might put it." 100 } "We need to know" 100 s_articles 100 s_nouns_abs 100 { "and" 100 | "or" 100 } adjectives 50 s_nouns_abs 100 "of" 100  s_articles 100 s_nouns 100 "to keep track of what can be" 100 s_verbs_past 100 ", " 100 { "and" 100 | "or" 100 } "what might" 100 TextDemonPVP 100 "us" 100 "." 100 < chooseTextDNA(Sample20) 100 > < chooseTextDNA(Line30) 50 >
  34. *******
  35. 100 subject(Line30) < UseStyle(plain) 100 > return 100 "Of course, much of what is produced by your JanusNode is nonsensical, uninteresting rubbish. Although you will always be required to pick out the good stuff from a larger set of junk, the produced texts can be honed closer towards meaning in many ways." 100 "For example, the following longer, quasi-coherent text is also generated randomly:" 100 return 100 return 100 "----------" 100 < chooseTextDNA(RunMe0) 100 >
  36. ****
  37. 100 Subject(RunMe0) < UseStyle(bold) 100 > < UseSize(20) 100 > < assign(topic1,PhilosophicalNouns) 100 > < assign(Mod1,PhilosophicalAdjs) 100 > < assign(topic2,PhilosophicalNouns) 100 > < assign(Mod2,PhilosophicalAdjs) 100 > < assign(person,people) 100 > < assign(inventor,FamousPeople) 100 > < chooseTextDNA(Title0) 100 > 
  38. ****
  39. 100 Subject(Title0) < capitalizenext() 100 > < get(Mod1) 100 > < capitalize() 100 > < Get(topic1) 100 > ":" 100 { "How is it different from" 100 < capitalize() 100 > < get(Mod2) 100 > < Get(topic2) 100 > "?" 100 | "How it can enhance your life." 100 | "Lessons from a" 100 attributes 50 < get(Person) 100 > | "Its debt to" 100 < Get(inventor) 100 > | < capitalizenext() 100 > adjectives 30 < get(person) 100 > "s" 100 "and" 100 < Get(inventor) 100 > | < capitalizenext() 100 > adjectives 30 < get(person) 100 > "s" 100 "," 100 p_nouns 100 ", and you" 100 | "A tool for" 100 attributes 30 < get(person) 100 > "s" |  < Get(inventor) 100 > "'s" 100 "gift to mankind" 100 } return 100 < chooseTextDNA(Sentence10) 100 >
  40. ***
  41. 100 Subject(Sentence10) < UseSize(14) 100 > TextDemonParagraphStarter 100 { "Today I am going to teach you about" 100 | "The topic for today is" 100 | "Today's topic is" 100 } < get(Mod1) 100 > < Get(topic1) 100 > { "and" 100 "more specifically" 50 "its debt to" 100 "the work of" 30 < Get(inventor) 100 > "." 100 | "and the role played by" 100 < Get(inventor) 100 > "in its development." 100 | "." 100 "More specifically, I will discuss the role played by" 100 < Get(inventor) 100 > "in the development of" 100 "this form of" 50  < Get(topic1) 100 > "." 100 | "." 100 | "." 100  | "." 100 } < chooseTextDNA(Sentence20) 100 >
  42. ***
  43. 100 Subject(Sentence10) < UseSize(14) 100 > TextDemonParagraphStarter 100 { "Can anyone" 100 "alive today" 20 "truly understand" 100 | "Have you ever wondered about" 100 | "What can we learn from a" 100 < get(person) 100 > "about" 100 | "Would you like to hear about" 100  < get(person) 100 > "s" 100 "and" 100 "their obsession with" 50 | "How much is known" 100 "today" 20 "about" 100  | "What is the contemporary significance of" 100 } < get(Mod1) 100 > < Get(topic1) 100 > "?" 100 < chooseTextDNA(Sentence20) 100 >
  44. ***
  45. 100 Subject(Sentence10) < UseSize(14) 100 > TextDemonParagraphStarter 100 < capitalizenext() 100 > < get(Mod1) 100 > < Get(topic1) 100 > { "is a subject that" 100 attributes 100 "people like I love" 100 "to hate" 30 | "is something you need to understand" 100 | "is a subject that" 100 attributes 100 "people like you need to understand" 100 | "is useful to study if you are" 100 attributes 100 | "is useful to study if you are a" 100 "practicing" 20 < get(person) 100 > } "." 100 < chooseTextDNA(Sentence20) 100 >
  46. ***
  47. 100 Subject(Sentence20) TextDemonSentenceStarter 100 < get(Mod1) 100 > < Get(topic1) 100 > "is often confused with" 100 < get(Mod2) 100 > < Get(topic2) 100 > "." 100 < chooseTextDNA(Sentence30) 100 > < chooseTextDNA(Sentence2a0) 40 > < chooseTextDNA(Sentence20) 20 >
  48. ***
  49. 100 Subject(Sentence20) TextDemonSentenceStarter 100 "Perhaps you are among those who" 100 { "have confused" 100 < get(Mod1) 100 > < Get(topic1) 100 > "with" 100 | "think of" 100  < get(Mod1) 100 > < Get(topic1) 100 > "as" 100 | "believe that" 100  < get(Mod1) 100 > < Get(topic1) 100 > "is nothing more than" 100 } { < get(Mod2) 100 > < Get(topic2) 100 > | < get(Mod2) 100 > PhilosophicalNouns 100 | PhilosophicalAdjs 100 PhilosophicalNouns 100 | "a" 100  < get(Person) 100 > "'s" 100 "hobby" 100 | "a private obsession for" 100 < Get(inventor) 100 > } "." 100 < chooseTextDNA(Sentence2a0) 100 >
  50. ***
  51. 100 Subject(Sentence20) TextDemonSentenceStarter 100 "Early" 100 < get(Person) 100 > "s" 100 "sometimes" 50 { "believed that" 100 | "pretended that" 100 | "supposed that" 100 | "acted as if" 100 | "told" 100  attributes 60 "lay people that" 100 } < get(Mod1) 100 > < Get(topic1) 100 > "was" 100 { "not different from" 100 | "nothing more than" 100 | "only a form of" 100 | "a modified type of" 100 | "nothing more than" 30 "what a" 100 people 100 "might call" 100 | "what was elsewhere referred to as" 100 } < get(Mod2) 100 > < Get(topic2) 100 > { "." 100 | "!" 100} < chooseTextDNA(Sentence2a0) 100 >
  52. ***
  53. 100 Subject(Sentence2a0) TextDemonSentenceStarter 100 < assign(adj1,adjectives) 100 > < assign(n1,s_nouns) 100 > < assign(adj3,adjectives) 100 > < assign(adj4,adjectives) 100 > "Consider the two terms." 100 TextDemonOpenQuote 100 < capitalizenext() 100 > < get(Mod1) 100 > TextDemonCloseQuote 100 { "refers to a quality of" 100 | "comes from a Greek word meaning" 100 | "comes from a Latin word meaning" 100 | "comes from an Aramaic word meaning" 100 | "comes from a" 100 "ancient" 50 "Hindu word meaning" 100| "has" 100 "etymological" 50 "roots which mean" 100 } TextDemonOpenQuote 100 < get(adj1) 100 > < get(n1) 100 > "s" 100 TextDemonCloseQuote 100 < backspace() 100 > "." 100 TextDemonOpenQuote 100 < capitalizenext() 100 > < Get(topic1) 100 >  TextDemonCloseQuote 100 { "refers to" 100 | "has etymological roots which suggest" 100 } { "the idea of" 50 < get(adj3) 100 > < backspace() 100 > "ness" 100 | "something" 100 < get(adj3) 100 > } { "and something" 100 "which is" 50 | ", something" 100 } < get(adj4) 100 > "." 100 "A" 100 < get(adj1) 100 > < get(adj3) 100 > < get(adj4) 100 > < get(n1) 100 > "." 100 { "A" 100 "kind of" 30 | "Perhaps a" 100 "kind of" 50 | "Think of a" 100 } s_nouns 100 "." 100 < chooseTextDNA(Sentence30) 100 >
  54. ***
  55. 100 Subject(Sentence30) TextDemonSentenceStarter 100 < capitalize() 100 > < get(Mod1) 100 > < Get(topic1) 100 > { "has been attracting increasing attention from" 100 < get(Person) 100 > "s" 100 "since it was first invented in the year" 100 < random(2000) 100 > "A.D" 100 | "has been" 100 "obsessively" 20 "studied by" 100 < get(Person) 100 > "s" 100 "since it was" 100 "first" 30 "invented in the year" 100 < random(2000) 100 > "B.C" 100 | "is a subject that every" 100 < get(Person) 100 > "studies intensely" 100 | "is of particular interest to" 100 < get(Person) 100 > "s" 100 } "." 100 < chooseTextDNA(Sentence40) 100 >
  56. ***
  57. 100 Subject(Sentence40) TextDemonSentenceStarter 100 "Let us be clear about what it is" 100 "not" 50 "." 100 "It is" 100 "not" 50 "just a form of" 100 PhilosophicalAdjs 20 PhilosophicalAdjs 100 PhilosophicalNouns 100 "." 100 "It is not" 100 < get(Mod2) 100 > [ "or" 100 PhilosophicalAdjs 100 ] "." 100 < capitalize() 100 > < Get(topic1) 100 > { "(whether" 100 < get(Mod1) 100 > "or" 100 < get(Mod2) 100 > < backspace() 100 > ")" 100 | "in all its" 100 adjectives 50 "forms" 100 | ", as practiced by professional" 100 < get(Person) 100 > "s" 100 "today" 50 "," 100 } "is not a method of understanding" 100 adjectives 100 p_nouns 100 "." 100 < chooseTextDNA(Sentence50) 100 >
  58. ***
  59. 100 Subject(Sentence40) TextDemonSentenceStarter 100 { "There are" 100 "perhaps" 30 "not" 50 "many reasons for this" 100 "interest" 50 "." 100 | "It is not easy to say why." 100 | "One may only speculate as to the reasons why." 100 } { "Studying" 100 < Get(topic1) 100 > "will not only make you a better" 100 < get(Person) 100 > "but will make you more" 100 [ attributes 100 "," 100 ] "and" 100  attributes 100 "as well" 100 |  "Studying" 100 < Get(topic1) 100 > "not only makes one a better" 100 < get(Person) 100 > "but it also makes one" 100 [ attributes 100 "," 100 ] "and" 100  attributes 100 "as well" | "The study of" 100 < Get(topic1) 100 > "makes one a better" 100 < get(Person) 100 > "." 100 "It also makes one more" 100 attributes 100 "and" 100  attributes 100  | "Studying" 100 < Get(topic1) 100 > "will not make one a better" 100 < get(Person) 100 > | "For most" 100 < get(Person) 100 > "s" 100 "studying" 100 < Get(topic1) 100 > "would be" 100 "little" 50 "more fruitful than studying the" 100 PhilosophicalNouns 100 "of a" 100 adjectives 100 s_nouns 100 | "Most" 100 < get(Person) 100 > "s" 100 "would be better off studying the" 100 PhilosophicalNouns 100 "of" 100 adjectives 100 s_nouns 100 "than attempting to understand" 100 < Get(topic1) 100 > | "For most" 100 < get(Person) 100 > "s" 100 "studying" 100 < Get(topic1) 100 > "would be" 100 "no" 50 "more fruitful than studying" 100 animals 100 PhilosophicalNouns 100 }  "." 100 < chooseTextDNA(Sentence50) 100 >
  60. ***
  61. 100 Subject(Sentence50) TextDemonParagraphStarter 100 { < Get(inventor) 100 > "brought" 100 < Get(topic1) 100 > "into its modern form" 100 | "Today's" 100 adjectives 50 < Get(topic1) 100 > "owes a debt to" 100 < Get(inventor) 100 > | "Modern" 100 < get(Person) 100 > "s" 100 "owe a debt of gratitude to" 100 < Get(inventor) 100 > | "To understand" 100 < Get(topic1) 100 > "today" 50 "we need to look to" 100 "the work of" 50 < get(inventor) 100 > } "." 100 < chooseTextDNA(Sentence60) 100 > < chooseTextDNA(Sentence5a0) 20 >
  62. ****
  63. 100 Subject(Sentence5a0) TextDemonSentenceStarter 100 { "Although best remembered for other contributions," 100 | "Although history has focused elsewhere," 100 } < Get(inventor) 100 > { "'s" 100 "contributions to" 100  adjectives 50 < Get(topic1) 100 > "were substantial" 100 | "had time to invent the" 100 adjectives 100 s_nouns 100 "as well as revolutionizing" 100 < Get(topic1) 100 > | "was" 100 "also" 20 "a" 100 "well-known" 20 attributes 30 < get(person) 100 > | "was" 100 "also" 20 "a" 100 "well-known" 20 "advocate of" 100 < get(person) 100 > "'s" 100 "rights" 100 | "was" 100 "also" 20 "interested in" 100 < get(person) 100 > "'s" 100 p_nouns 100 }  "." 100 < chooseTextDNA(Sentence60) 100 >
  64. ***
  65. 100 Subject(Sentence5a0) TextDemonSentenceStarter 100 "Some have suggested that" 100 < Get(inventor) 100 > "had nothing to do with" 100 < Get(topic1) 100 >  "!" 100  < chooseTextDNA(Sentence60) 100 >
  66. ****
  67. 100 Subject(Sentence5a0) TextDemonSentenceStarter 100 "The" 100 { "reknowned" 100 | "infamous" 100 | attributes 100 } attributes 30 { < get(person) 100 > | people 100 } { TextDemonName 100 | FamousPeople 100 "(the younger)" 10 | FamousPeople 100 "(the elder)" 10 } "has" 40 { "suggested" 100 | "insinuated" 100 | "implied" 100 } { "in a recent tome" 40 | "in a recent interview" 100 | "in published work" 100 } "that" 100 < Get(inventor) 100 > "was too busy with" 100 gerunds 30 adjectives 100 s_nouns 100 "s" 100 "to study" 100 < Get(topic1) 100 > { "!" 100 | "." 100 } { "What nonsense!" 10 | "This is not true." 20 | "This does not accord with the known facts." 20 } < chooseTextDNA(Sentence60) 100 >
  68. ***
  69. 100 Subject(Sentence60) TextDemonSentenceStarter 100 { "Working" 100 | "Tinkering" 100 | "Researching" 100 } { "alone" 100 | "part time" 100 | "in virtual seclusion" 100 | "with a" 100 adjectives 30 "team of" 100 people 100 "s" 100 | "for" 100 < random(20) 100 > "years" 100 | "with" 100 "the living spirit of" 20 FamousPeople 100 } "," 100 < Get(inventor) 100 > { "uncovered" 100 | "was able to document" 100 | "discovered" 100 | "demonstrated" 100 } adjectives 100 "similarities between" 100 < Get(mod1) 70 > < Get(topic1) 100 > "and" 100 PhilosophicalAdjs 100 PhilosophicalNouns 100 "." 100 < chooseTextDNA(Sentence70) 100 >
  70. ****
  71. 100 Subject(Sentence60) TextDemonSentenceStarter 100 "By the time" 100 < Get(inventor) 100 > "was" 100 { adjectives 100 | < random(60) 100 > "years old" 100 | "finished" 100 gerunds 30 | "dead" 100 | adverbs 30 s_verbs_past 100 } { "our" 100 [ attributes 70 ] "planet" 100 | "the work of" 100 < get(Person) 100 > "s" 100 | "not only" 100 < Get(mod1) 70 > < Get(topic1) 100 > "but" 100 adjectives 50 PhilosophicalAdjs 50 PhilosophicalNouns 100 } { "was changed forever" 100 | "was" 100 s_verbs_past 100 } "." 100 < chooseTextDNA(Sentence70) 100 > < chooseTextDNA(Sentence70) 100 >
  72. ****
  73. 100 Subject(Sentence70) TextDemonSentenceStarter 100 < capitalize() 100 > { < Get(inventor) 100 > "'s" 100 adjectives 70 | "This" 100 } { "work" 100 | "effort" 100 | "interpretive" 50 "framework" 100 | PhilosophicalNouns 100 } { "made clear" 100 | "proved conclusively" 100 | "suggested" 100 "to some" 50 | "helped" 100 < get(Person) 100 > "s" 100 "to see" 100 } "that" 100 { adjectives 100 p_nouns 100 | < get(Mod2) 100 > "entities" 100 } "could be considered as" 100 { adjectives 70 p_nouns 100 | < get(Mod1) 100 > "entities" 60 } { "under idealized conditions" 100 | "if you were a practicing" 100 < get(Person) 100 > | "if" 100 adjectives 50 p_nouns 100 "were" 100 "conceived of as" 50 adjectives 50 p_nouns 100 | "for" 100 "most" 20 PhilosophicalAdjs 100 "purposes" 100 | "if we ignored some complications put forth by" 100 "a few" 30 attributes 30 people 100 "s" 100 | "if" 100 "the complications of" 50 adjectives 50 p_nouns 100 "were factored out" 100 } "."  100 < chooseTextDNA(Sentence80) 100 > < chooseTextDNA(Sentence70) 30 > < chooseTextDNA(Sentence7a0) 10 >
  74. *****
  75. 100 Subject(Sentence70) TextDemonSentenceStarter 100 < capitalize() 100 > < Get(inventor) 100 > "liberated" 100 { "us" 100 | "humankind" 100 | attributes 100 < get(Person) 100 > "s" 100 | "most" 20 attributes 100 people 100 "s" 100 } "from" 100 { "our" 100 | "the" 100 natural" 70 | "an inherent" 100 | "an ancient" 100 } { "need to equate" 100 | "desire to place" 100 | "tendency to confuse" 100 } { PhilosophicalAdjs 100 PhilosophicalNouns 100 | PhilosophicalAdjs 100 s_nouns 100 "s" 100 | "the antics of" 30 attributes 100 < get(Person) 100 > "s" 100 } "with" 100  { PhilosophicalAdjs 100 PhilosophicalNouns 100 | PhilosophicalAdjs 100 s_nouns 100 | attributes 100 < get(Person) 100 > "s" 100 } "." 100 < chooseTextDNA(Sentence80) 100 > < chooseTextDNA(Sentence70) 30 > < chooseTextDNA(Sentence7a0) 20 >
  76. ****
  77. 100 Subject(Sentence7a0) TextDemonSentenceStarter 100 < capitalize() 100 > < Get(inventor) 100 > { "allegedly" 20 "once" 100 adverbs 50 "wrote that" 100 | "is said to have" 100 adverbs 50 "remarked that" 100 } TextDemonOpenquote 100 { "life without" 100 |  "a" 100 < get(Person) 100 > "ignorant of" 100 } < Get(mod1) 70 > < Get(topic1) 100 > TextDemonEConnect 100 "a" 100 adjectives 100 gerunds 30 { s_nouns 100 | attributes 30 animals 100 } TextDemonclosequote 100 "." 100 < chooseTextDNA(Sentence80) 100 >
  78. ***
  79. 100 Subject(Sentence80) TextDemonParagraphStarter 100 "After" 100 < Get(inventor) 100 > ", no" 100 attributes 100 < get(Person) 100 >  { "could doubt the significance of" 100 | "could afford to ignore" 100 | "could function in ignorance of" 100 | "could consider" 100 adjectives 100 s_nouns 100 "s" 100 "without also considering" 100 } < get(Mod1) 100 > < Get(topic1) 100 > "." 100 < chooseTextDNA(Line40) 100 >
  80. ***
  81. 100 Subject(Sentence80) TextDemonParagraphStarter 100 "With this insight" 100 < Get(inventor) 100 > "brought" 100 < get(Mod1) 100 >  < Get(topic1) 100 > { "into the 20th century" 100  | "into the lives of" 100 < get(Person) 100 > "s" 100 } "." 100 < chooseTextDNA(Line40) 100 >
  82. ***
  83. 100 Subject(Sentence80) TextDemonParagraphStarter 100 "In a post-" 100 < backspace() 100 > < Get(inventor) 100 > "world, no" 100 < get(Person) 100 > { "can ignore this insight into" 100 | "can afford to remain ignorant of" 100 } < get(Mod1) 100 >  < Get(topic1) 100 > "." 100 < chooseTextDNA(Line40) 100 >
  84. ***
  85. 100 Subject(Sentence80) TextDemonParagraphStarter 100 "today" 40 "millions of" 100 < get(Person) 100 > "s" 100 "around the world give prayers of thanks for" 100 < Get(inventor) 100 > "'s" 100 adjectives 60 "contributions to" 100 { "the" 100 adjectives 100 "science of" 100 | "the advancement of" 100 adjectives 30 | "" 100 } < get(Mod1) 100 > < Get(topic1) 100 > "." 100 < chooseTextDNA(Line40) 100 >
  86. ***
  87. 100 subject(Line40) < UseStyle(plain) 100 > return 100 return 100 "----------" 100 return 100 "Much more complex control of text is possible from within your JanusNode. Your JanusNode also includes many other text tools besides the text-generation tools." 100 "Please experiment with this JanusNode, or read the documentation for more info." 100 return 100 return 100 "You and" 50 "JanusNodes are utterly free." 100 return 100 return 100 "              This JanusNode will now enter a passive receptive state." 100 return 100 < chooseTextDNA(Line50) 100 >
  88. ******
  89. 100 subject(Line50) < BecomePassive() 100 >
  90.